home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / online / inetutils-1.4 / steuerung < prev    next >
AmigaDOS Script File  |  1978-01-08  |  2KB  |  98 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. set binfo        1
  20. set bcopy        1
  21. set bassign      1
  22. set bunassign    0
  23.  
  24.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  25.     set nummer 0
  26.     if $binfo EQ 1
  27.          echo >>t:tmpsteuerung " Info" NOLINE
  28.          set nummer `eval $nummer + 1`
  29.          set ninfo $nummer
  30.     endif
  31.     if $bcopy EQ 1
  32.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  33.          set nummer `eval $nummer + 1`
  34.          set ncopy $nummer
  35.     endif
  36.     if $bassign EQ 1
  37.          echo >>t:tmpsteuerung " Install_Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set nassign $nummer
  40.     endif
  41.     if $bunassign EQ 1
  42.          echo >>t:tmpsteuerung " Unassign" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set nunassign $nummer
  45.     endif
  46.     if "[param]" EQ ""
  47.         echo >>t:tmpsteuerung " Ende" NOLINE
  48.         execute >nil: t:tmpsteuerung
  49.         delete >nil: t:tmpsteuerung
  50.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  51.         if $reqerg[$$] EQ 0
  52.             skip Ende
  53.         endif
  54.     endif
  55.     if $reqerg[$$] EQ $ninfo
  56.         set vinfo 1
  57.     endif
  58.     if $reqerg[$$] EQ $ncopy
  59.         set vcopy 1
  60.     endif
  61.     if $reqerg[$$] EQ $nassign
  62.         set vassign 1
  63.     endif
  64.     if $reqerg[$$] EQ $nunassign
  65.         set vunassign 1
  66.     endif
  67. endif
  68.  
  69. if $vinfo EQ 1
  70. ;>>>>>>>> Hier Infotext eintragen
  71.     :c/Metatool :Online/INetUtils-1.4/ReadMe-INetUtils FT=TEXT
  72. endif
  73. if $vassign EQ 1
  74.     :c/Metatool :Online/INetUtils-1.4/Install FT=TEXT
  75. endif
  76.  
  77. if $vcopy EQ 1
  78.     execute :c/Verzeichniskopieren ":Online/INetUtils-1.4/" "INetUtils-1.4" 676864
  79. endif
  80.  
  81. unset binfo
  82. unset vinfo
  83. unset ninfo
  84. unset bassign
  85. unset bunassign
  86. unset vassign
  87. unset vunassign
  88. unset nassign
  89. unset nunassign
  90. unset bcopy
  91. unset vcopy
  92. unset ncopy
  93. if "[param]" EQ ""
  94.     execute Steuerung
  95. endif
  96. LAB Ende
  97. unsetenv reqerg[$$]
  98.